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ee MODULE ACCESS ( 
3001 :¢DS0006 [DENY = oy vorubes 


' 
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'@ 

ie COPYRIGHT (c) 1978, 1980. 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

‘* CORPORATION. 

i DIGITAL ASSUMES NO RESPONSIBILITY FOR T THE USE OR RELIABILITY OF ITS 

i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: FACILITY: FIIACP Structure Level 2 

5 ABSTRACT: 

, This is the main processing routine for the ACCESS function. 
4 5 ENVIRONMENT : 
41 1 i STARLET operating system, including privileged system services 
¢g § : and internal exec routines. 
44 4 1 in 
$2 5 ; 
2 ° AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1975 15:43 
3 e MODIFIED BY: 
1 !CDdS ? i v04-002 €DS0006 Christian D. Saether 15-Nov-1984 
§ ikps § : Seaad test for esbasaees to test clu$gl_club. 

iCDS 41: v04-001 CDS0005 Christian D. Saether 14-Nov-1984 
5 'CoS 5 ! Make test for girectory ts to set URITE TURN here 

igpe § : instead of in MAKE_ACC 
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H 1 1! v03-023 cosgg0s Christian D. Saether 14-Aug-1984 

: 4 } } Rost y handling of extension fcbs. Deal with stale 

; 54 1 > 

; 5 1! v03-022 ACG0438 Andrew C. Goldstein, 26-Jul-1984 13:41 
; $ 7: age interlock to special caches for write accessed 

3 -s file structure files. Also move create-if handling to 

: : ; the dispatcher. 

; 60 1 v03-021 CdS0003 Christian D. Saether 20-Apr-1984 

: f : : Access arbitration changes. 

; : 1i v03-020 ACG0412 Andrew C. Goldstein, 22-Mar-1984 18:15 
>; 8664 Implement agent access mode support; add access mode to 

: 65 } : check protection call 

; $3 ii v03-019 ¢CdS0002 Christian D. Saether 66-Mar-1984 

; 6468 1! Add re-serialization logic for coming at extension 

: , : } headers directly. 

: 71 1 v03-018 CDS001 Christian D. Saether 1-Mar-1984 

: : Remove call to FLUSH_FID. 

3; (28 1 v03-017 CDS0009 Christian D. Saether — 29-Dec-1983 

; 1! Add L_NORM 5 Jnkage to routine declarations. Invoke 

: f : } BASE_REGISTER and BIND_COMMON macros where needed. 

: 78 1! V03-016 LMPO166 L. Mark Pilant, 28-Oct-1983 19:07 
; 7! Correct a bug that caused execute access to grant write access 
: : : to a directory during a create-if. 

; ¢ 1} v03-015 cDS0008 Christian D. Saether 23-Sep-1983 

: 1: Modify interface to SERIAL_FILE routine. 

; ¢ ! : Remove storing access lock ID in FIB. 

; 1: V03-014 LMPO149 tL, Mark Pilant, 16-Sep-1983 13:46 
$ 1! Fix potential buffer management problem that may occur in 
: 9 ! : READ_ATTRIB. 

; 5 1/ v03-013 ACGO354 Andrew C. Goldstein 13-Sep-1983 16:11 
3 31 ; Add alternate access validation mask 

; 38 1/ v03-012 CDS0007 Christian D. Saether 3-May-1983 

; 94 1! Move ACCESS_LGCK and LOCK_MODE routines to 

: «9S 1! separate module. 

: 38 i : Add call to SERIAL_FILE sync routine. 

: 98 1 v03-011 CDS0006 Christian D. Seether — 28-Apr-1983 

; ' } : Clear DELAY_TRUNC in value block if writer. 

; 101 1! v03-010 CdS0005 Christian D. Saether 19-Apr-1983 

3 7 § }} Don’t charge quota for access lock. 

3 : : : Bug check on unexpected errors. 

3 105 1 i v03-009 CdS0004 Christian D. Saether 6-Apr-1983 

. 1: Further refinement of lock ng routine interfaces. 

3 Ww 1? ACCESS_LOCK tests ACCLCK_ID for conversions. 


H 12 
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ACCESS_LOCK tests CURRENT_UCB CUCBSL_PID] to see if shared. 


v03-008 ¢DS0003 Christian Dd. Seether 17-Jan-1983 
Redo the access locking routine interface. 


v03-007 cDdS0002 Christian D. Saether 7-Jan-1983 
Take out access lock in exec mode. Return lock id in fib. 


v03-006 LMP0059 L. Mark Pilant ¢1-Dec@198¢ 11:05 
Always create an FCB when a file ey" $ accessed. This 
eliminates a lot of special casing in the FCB handling. 


v03-005 ¢DS0001 Christian D. Saether 6-Dec-1982 
Changes to support lock manager based access control. 


V03-004 LMP48917 L. Mark Pilant, 7-0ct-1982 12:45 
Eliminate the explicit setting of the the access time if 
write access is sought for a particular file. 


v03-003 LMP0036 L. Mark Pilant, 30-Jun-1982 10:00 
Add support for Access Control Lists. 


v03-002 LMP0023 L. Mark Pilant, 8-Apr-1982 1C:40 
If there is only one FCB, don't call REMAP_FILE but still 
set COMPLETE in the window. 


v05-001 LMP0016 L. Mark Pilant 25-Mar-1982 13:15 
Remove diddling of the COMPLETE bit in the window segments. 


v02-009 acs0258 Andrew ¢. Goldstein, 26-Jan-1982 16:54 
Fix reference to RVN 1 in expiration date processing 


v02-008 ACG0230 Andrew C. Goldstein, 23-Dec-1981 23:17 
Add expiration date maintenance 


LMP0003 L. Mark Pilant, 8-Dec-1981 10:15 
Added byte Limit quota check on window creation. 


v02-006 ACG0225 Andrew C. Goldstein, 24-Nov-1981 17:18 
Add NOLOCK support 


vO2-005 ACG01é7 Andrew C. Goldstein 16-Apr-1980 19:24 
Previous revision history moved to F11B.REV 
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LIBRARY ose egePORARY =1 1G ,L52": 
REQUIRE °SRCS$:FCPDEF .B352'; 


FORWARD ROUTINE 
CCESS : L_NORM, ! main escoes function processing 
SET_EXPIRE : LUNORM; ! enable expiration date recording 
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: 16} 1188 } GLOBAL ROUTINE ACCESS : L_NORM = 

; 188 11 5 1 ee 

: 164 1160 1! 

3 19? 1180 ! : FUNCTIONAL DESCRIPTION: 

$ 187 i } } This is the main processing routine for the ACCESS function. 
3 192 1165 1 ! CALLING SEQUENCE: 

; 370 1108 1! wcCESs () 

3; «(171 1167 1! 

3 \7¢ 11 8 1 ! INPUT PARAMETERS: 

; 17 11 1! NONE 

3; «174 1170 1! 

s 175 1171 1°! IMPLICIT INPUTS: 

3 176 1126 1! CURRENT_VCB: VCB of volume 

3 \ee Vite : IO_PACKET: address of 1/0 request packet 

; 179 1175 1 ! OUTPUT PARAMETERS: 

; 180 1128 1! NONE 

3: «6181 1177 1! 

3 186 1178 1°! IMPLICIT OUTPUTS: 

; % 1179 1! PRIMARY_FCB: FCB of file 

3; (184 1180 1! CURRENT WINDOW: address of file window 

3 is? 1 1 } USER_STATUS: 1/0 status block to return to user 

: 187 11 i 1 ! ROUTINE VALUE: 

; «#188 11 1! NONE 

3; 189 1185 1! 

; 190 11 1 ! SIDE EFFECTS: 

; 6191 11 1! FCB & window created 

; 133 1188 1! 

; #19 1189 1 !<<- 

3 194 1190 1 

3: «195 1191 BEGIN 

3; 1 1136 

; 19 119 BUILTIN 

; 198 1194 ° 

; 199 1195 SUBM; 

; 200 1138 

: 201 119 LABEL 

3 4 1138 CHECK_EXPIRE; ! check file expiration date 
3 1 LOCAL 

3 5 1201 REALBASIS, 

: 1 ¢ STA ! grotegtton check status value 
; 2 1 FCB_CREATED, ! flag indicating new FCB created 
3; 208 1 PACRET : a4 BBLOCK, ! ogdtess of 1/0 pocket 

3; 209 1205 ABD : REF BBLOCKVECTOR C,ABDSC_LENGTHJ, 

: 10 1 s4 ' buffer erese ptors 

; 211 1 FIB : REF BBLOCK, ! file identification block 
: \§ 1 FCB : REF BBLOCK, ! FCB agdress 

: et 1 ucB : REF BBLOCK, ! UCB of RVN 1 

: 216 121 PRIMARY_VCB : REF BBLOCK, ! VCB of RVN 1 

; 215 121 HEADER REF BBLOCK, ! address of file header 

: 16 1 \¢ NEW_HEADER : REF BBLOCK, ! address of extension header 
: 21 121 IDERT_AREA : REF BBLOCK, ! address of header ident area 


SR 
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: VECTOR (2), ! time of da 
ff ! hemtion code qualifiers 


: BLOCK 


DDRESS 
ITVECT 


ING_ MODE (GENERAL), 
OR ADDRESSING_MODE (ABSOLUTE); 


: A 
: B 
ACP Eache writeback flags 


: L.NORM NOVALUE, ! rebuild primary fcb from header 

NORM NOVALUE, ! construct extension fcbs, if nec. 
SB_2ARGS, ! arbitrate file access 

CONV_ACCLOCK : L_RORM? ' convert access lock. 

RELEASE SERIAL_LOCK : L_NORM NOVALUE, 

SERIAL_FILE : RA, ! serialize file requests 

GET FIB 9 FIB for operation 

ind file in directory 

create file 

switch to correct volume 

search FCB List 

read file header 

' create an FCB 

' check file protection 


: LLNORM, ! create a window 
: LNORM ADDRESSING_MODE (GENERAL), ! complete the access 
K : L_NORM ! take volume allocation lock 
:“L_NORM, 
: L_NORM 


CREATE 

SWITCH. VOLUME 
ARCH _F 

READ_HEADER 


al release volume allocation lock 
release buffers under lock 
flush file ID cache 

lush extent cache 
flush quota cache 
take out cache interlock 
compute file header checksum 
mark buffer for writeback 
read file attributes 
remap the file completely 
mark the file as complete 


READ-ATTRIB 
REMAP FILE 
MARK _COMPLETE; 


: Enable the deaccvss cleanup if an access is taking place. 


PACKET 
KETCIRPSW_FUNC): 
$V_ACCESS 
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LAGSECLF_ZCHANNEL] = 1; 
LAGSECLFDELWINDOW) = 1; 


pointers to interesting control blocks. 
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H pointe buffer descriptors 
ABD = .BBLOCK C.PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPT); 


ACCE % “1985 17: AX-11 Bliss-32 v4.0-742 
voseo2 =danet 94s Fees HL bts ee sRe Hee 95 082, 
FIB = G ' pointer to FIB 


f° iste Test ALT TPACEESS]_NE a0 
HEN FIBCFIB $9 WALT GRANTEDI” $ ! assume access granted 


71 
7 
fi 
a ! Look up the file in the directory if called for. 
7 
7 
7 


» CLEANUP_FLAGSCCLF _D — 
IND (CABD, .FIB> 


F 
f there is a file open “— the channel, check the file ID returned Oy th 

IND eoginst the file ID t +9 is open. If they are different, drop the FCB 
nd window addresses on the loor. 


IF .PRIMARY_FCB NEQ 0 
THEN 


If PRIMARY _F CBCFCBSW_FID_N NEQ . fiat Ht tre St 
vrei -PRIMARY_F CBLF CBSW_F ID_ RVN NEQ .FIBCFIBSW_FID_RVN 


BEGIN 

PRIMARY _FCB = 0; 
CURRENT -WINDOW = 0; 
END; 


this is a find only, exit now to avoid an extraneous read of the 
le header. 


| ay | -FUNCTIONCIOS$V_ACCESS]) if n 
-PACKETCIRPSW _BCNT) LEQ ABDSC ATTRIB. ! aod no. “attribute list 
THEN RETURN 1; tall don 


: Switch context to the volume of the specified RVN. 


SWITCH VOLUME (.FIBCFIBSW_FID_RVN]); 
: Synchronize further processing on this file. 


PRIM_LCKINDX = SERIAL_FILE (FIB CFIBSW_FIDI); 


! Find the FCB of the file, if one exists. then read the file 
i header. If there is no FCB, create one. 


FCB = SEARCH FCB (F 1BCF IBSW_F IDI); 
REALBASIS = 
HEADER = READ. -MEADER (FIBCFIBSW_FID], .FCB, REALBASIS); 


If .REALBASIS NEQ 0 
THEN 
BEGIN 


LOCAL 
FID : BBLOCK (6); 
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EIDEBCWAK] = “REALBASI3< 
SWITCH_VOLUME (.FID CF IDSB_RVNI); 
RELEASE_SERIAL_LOCK (.PRIM_LCKINDX); 
PRIM_LCKINDX = SERIAL_FILE (FID); 
: SEARCH_FCB (FID) EQL 0 
ERR_EXIT (SS$_NOSUCHF ILE); 
-— = READ_HEADER (FIB CFIB$W_FIDJ, FCB); 


"Tw 


ip Bi NUM -REALBAS sie. p 
ID 


: If the file is marked for delete and is not accessed by this user, and 
the accessor is not the system, deny its existence. 


IF CURRENT WINDOW EQL 0 AND .HEADERCFH2$V_MARKDEL) 
AND OCk CBBLOCK C. ZPACKETLIRP L_ARB], ARBSQ_PRIV], PRVSV_BYPASS) 
THEN PRR’ _EXIT (SS$_NOSUCHF ILE); 


FCB_CREATED = 0; 
IF FCB EQL 0 
HEN 

BEGIN 
FCB_CREATED = 1; 
ECB = KERNEL_CALL (CREATE_FCB, .HEADER); 
PRIMARY_FCB = .FCB; 


! If access is requested. check for conflicts and file protection. 
then create a window and Link everything up. 


! record FCB for external use 


IF .FUNCTION[ 1O$V_ACCESS) 
THEN 


BEGIN 
IF ¢ ag gs i LOCKED) 


AND NOT LOCK C.PACKETCIRPSL_ARBI, a9 -PRIV], PRVSV_BYPASS) 
THEN ERR. “Bait “ss oF ILELOCKED) tileis deaccess locked 
BEGIN 
LOCAL 
PREV_MODE ; 


PREV_MODE = .FCB CFCBSB_ACCLKMODE); 


IF NOT ARBITRATE ACCESS (.F IB CFIBSL_ACCTLJ, .FCB) 
THEN ERR_EXIT (SS$_ACCONFLICT); 


CURRENT_WINDOW = CREATE_WINDOW (.F IBLF FBS ACCTLJ,_.FIBCFIB$B_WSIZE), 
-HEADER, .PACKETCIRPSL_P P16; .FCB); 


ee 


So 


2 


SQ 


° 
oe 
* 
. 
© 
° 
. 
. 
o 
e 
o 
e 
7 
o 
© 
o 
. 
o 
o 
. 
co 
o 
. 
oO 
7 
cs 
. 
e 
~ 
e 
. 
o 
- 
a 
. 
o 
. 
o 
° 
o 
of 
. 
e 
. 
o 
o 
- 
e 
- 
ca 
. 
o 
. 
. 
- 
o 
- 
o 
7 
. 
7 
e 
- 
os 
> 
e 
. 
oe 
” 
oe 
* 
o 
- 
a 
oo 
a 
. 
eo 
a 
. 
. 
. 
cs 
. 
a 
. 
ca 
- 
° 
. 
e 
> 
ca 
e 
o 
° 
. 
cm 
. 
e 
+ 
e 
o 
o 
. 
a 


O@ Moca 


oCO00000 
VEO OONOuM 


Se 


oO 
co 


WAWWAAWAWNAAA AA AAA 


3 


SERRE 


Soooooeo 
VFWN—O 


2S 


BB EDD DMB BB EE AMEE BE DVDS SII SE BP BB TI BBB BE UTI 


=CODNAUVEWN HO 0ONOUEWN HO 


=O OONA UENO OONOUL WIN OVO 


ER POROPOPOPURUNINND 2 = = = Ss OO 


Wh 


w 


wr 
SOLEUS 


w 
ee a ce ce ec ce a oe ce ee ce ee ce ee ee mt cel ee ce ee ee ee ee ee ce ce ce ee ce ce ce ce ee ee ae ee ed ed ee ee 


Pt at tt et kk eh hak Ek ahah Behe ee eh eh eh ek ed ek 


Set et at et at at ek et tt ak 2d ae-e kt a ee ee ek ek al kk ek 


ne 


g-Jan-1985 17:27:28 Yao) BLise=32 ¥4.0-7 


42 P 
F11X.BUGSRCJACCESS.832;1 ee (2 


IF_ .CURKENT_WINDOW EQL 0 
THEN 
BEGIN 
Jf, PREV_MODE<0.8> LSSU .FCB CFCBSB_ACCLKMODE] 
CONV_ACCLOCK (.PREV_MODE, .FCB); 
ERR_EXIT (SSS$_EXBYTLM); 
END; 


MAKE_ACCESS (.FCB, .CURRENT_WINDOW, .ABD); 
IF HEADER CFH2$V_DIRECTORY) 
THEN 


BEGIN 
FCB CFCBSW pInséad = .FCB CFCBSW_DIRSEQ) + 1; 
CURRENT WI RDOU WCBSV_WRITE_TURN] = 1; 


IF .FCB Cr cBsy DELAYTRNC] 
AND .FI8 CFIGSV_WRITE) 


BEGIN 
IF .FCB CFCBSB_ACCLKMODE] LSSU LCKSK_PWMODE 
IF NOT CONV_ACCLOCK (LCKSK_PWMODE, .FCB) 
BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’); 


FCB CFCBSV_DELAYTRNC) = 0; 
FCB CFCBSL_TRUNCVBN) = 0; 


op aera (.FCB CFCBSB_ACCLKMODE), .FCB); 


END; 


! If file expiration is enabled and the volume is writable, check 

! the current expiration date. If it needs to be updated, note this for 
! processin Gyr ing deaccess. Note that we use the retention parameters 
' from RVN 1 if this is a volume set. 


CHECK_EXPIRE: BEGIN 
PRIMARY VCB = .CURRENT_VCB; 

UCB = . CURRENT pce 

If PRIMARY _VCB VCBSW_RVN] NEQ 0 


BEGIN 
uce = gVEGTOR CCURRENT_RVTCRVTSL_UCBLST), 02; 
THEN LEAVE CHECK EXPIRE: 

PRIMARY_VCB = .UCBCUCBSL_VCB); 


IF NOT .BBLOCK CUCBCUCBSL_DEVCHAR), DEVS$V_SwL) 
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-HEADERLFH2SB 


AND NOT .F IBLF IBSV naveseyt 
F 0 
( 12 EXPDATE) + FTdSs, EXPDATED 42 


AND CMPM' (2. PRIMARY VCB 
AND .HEADERCFH iB mPOF 


,] 
e B$a ADERETHeSB 42 Po Ge 0)) NEQ 0 
U (SBYTEOFFSET (F 


DERCFH2SB_IDOFFSETI*2; 
INMIN) TIME); 


sEXPoate BAY_TIME) LSS 0 


4 
4 
4 
4 
4 
| 3 — -_ 
END; ! end of block CHECK_EXPIRE 
END; ! end of access processing 
; If the file is multi-header, read the extension headers and create 
; extension FCB’s as necessary. 
IF .FCB_CREATED 
THEN 
ELS BUILD_EXT_FCBS (. HEADER) 
If .FCB CFCBSV_STALE) 
THEN 
BEGIN 
REBLD_PRIM_FCB (.FCB, . HEADER); 
BUILD_EXT_FCBS (. HEADER); 
END; 


i] 
Finally make sure that access is allowed to the file. 


IF_ .FUNCTIONCIOS$V_ACCESS) 
THEN 


FIBSV EXECUTE) 
ra WRITE 


PEV-AODES LeOU 2 


BEGIN 
STATUS = CHECK PROTECT. ( 
AND NOT 


WRITE] OR .FIBCFIBSV_NOREAD), 


FCB, 
( PACKETCIRPSV ], .FIBCFIBSB_AGENT_MODE)), 
fFiBsL AL MOSES. Me ~ 

F IBSV~ALT“REQ)); 

IF .STATUS EQL SS$_NOTALLPRIV 

THEN F 1B P IBSY_ALTTGRANTEDS = 0; 


! If this is a write access to the index file, the storage map, or the 
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ACCE Blane 7: AxX-11 Bliss-3 
yose002 mse 15: 4 33 HPT ix BuGsReJA 
. yete file, flush the soprepr tate E, ceene. Also take out the cache lock 

f the volume is cluster accessible 


ACC 


DS ee 1888 ye! seu 
(.F gi Jeceis Ai 
AND .F IBLF au ID NUMJ LEQU FIDSC_BITMAP) 
-FCB EQL TOEURRENT -VCBCVCBSL_QUOTAF (CBI) 


THEN 
BEGIN 
ALLOCATION_LOCK (); 
If .FCB EQL “CURRENT _-VCBCVCBSL_QUOTAF CB) 
THEN FLUSH atrres “() 
ELSE IF .FT8 tase, Fis NUM] EQL FIDSC_INDEXF 
THEN see ETE FID (OY 
ELSE PURGE_EXTENT (0, 0); 


RELEASE_LOCKBASIS ( 
ALLOCATION_UNLOCK (! 


IF .8BLOCK CCURRENT peg DEVCHAR2], DEV$V_CLUJ 
we FeuPetast le UP ACHELK ID? EQL 0 


BISARAN—SS 


SSSSSSSSS393595 


rh Ah Ah sh sh ah al eal 


aaa at et 


MREWN OO OONOVNE WN OOO -OUFWRO 


:CDS0006 


bt tote ob ¢0-t> ttettl ttt  ttet Ab AO O S Ae SOO Me Ae 
Ls) 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
; BEGIN 
STATUS = CACHE_LOCK ( ce BCFC cBSL LOCKBASIS], FCBCFCBSL_CACHELKID), 2); 
5 IF NOT .STATUS THEN ERR_ EXIT Cosy TATUS); 
4 END; 
END; 
END; 


: ; Do read attributes if requested. 


MEAN — 98 ODNO NEW" OOOVNO US wn— 


i -PACKETCIRPSW_BCNT) GTR ABDSC_ATTRIB 


BEGIN 
IF . CURRENT WINDOW EQL 0 
THEN STATUS™= CHECK PROTECT _" wth peace 


.FCB, 

AXU T.PACKETL DE), .FIBCFIBS$B_AGENT_MODE)), 

PIBCr ieee ALT rrceese , sf IBCFIBSV_ALT_REQI); 
ERR_EXIT (J; 


If NOT KERNEL CALL (READ attrib. «HEADER, .ABD) THEN 
HEADER 'LE_WEADER; 


IF .STATUS ew 
THEN F IBLF IBSV AL Chan ash ; 0; 


: If necessary map the file completely. 


ee 
_ 


oe 
Wwn—oO 


if z Funct iont 108v_ ACCESS] 
ee WINDOWLWCBSV_CATHEDRAL J 
IF PRIMARY _FCBCFCBSL_EXFCB) NEQ 0 


Ft ot at at et 
we 
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acess, Hesarct9As 12:20:38 YMG SBLSaEGHe a6, 
THEN REMAP _FILE() 
ELSE KERNEC_CALL (MARK_COMPLETE, .CURRENT_wWINDOW); 
RETURN 1; 


END; ! end of routine ACCESS 


«TITLE ACCES 

- IDENT \VOE=002\ 

«PSECT SCODES,NOWRT,2 
00600000 00000000 00000 P.AAA: .LONG 0, 0 


-EXTRN CLUSGL_CLUB, ACP$GB_WRITBACK 
EXTRN REBLD Prin FCB BUICD_EXT_F CBS 


a 
Ou 
—-O0One 


CONF wr 


eEXTRN ALLOCA UNLOCK 
eEXTRN RELEASE _LOCKBASIS 
oEXTRN DELETE FID aPURGE EXTENT 


LUSH_ 
sEXTRN CACHE-LOCR, CHECKSUM 
MARK BIRTY, READ_ATTRIB 
eEXTRN REMAP FILE, MARK COMPLETE 
-EXTRN BUGS_ROPERR, SYSSGETTIM 


ENTRY ACCESS Save R2,R3,R4,R5,R6,R7,RB,RI_R11 
SUBL2 #20, SP 
MOVAB 1 (BASE) RB 


mmo-oom 


#1626, 2¢ 
= #1026, 2(BAs ABD 


CALL ne GET_FIB 
RO. FIB 
tf 1B) 


00006 


& 
wna SEAN 
wun © 


at 
te) 
3S 
ive] 


ou) 
PUS D 

CALLS hy FIND 
MOVL ass’ RO 


0 08 $ 
g(n0). 4(F 1B) 


LEAF LSUMELRASLSSLSSES FE 


ree 


Sz 


See Oe ee Oe Se Ge Oe Oe ee Se Se ee 


ACCE Bejan 5 17:27: AX-11 Bliss-32 V4.0-74 
yoseb02 porn 1382 15:25:88 F11X.BUGSRCJACCESS.832 
08 a3 28 cMPw tc 8(F 18) 
BEQ 
08 4$ CLAL BASE) 
CLRL 
09 6 5$: BBS Sato, 5° 
32 n CMP Bolt 
7 Buf 
7E 08 067 6$:  — MOVZWL act 18) ,_=(SP) 
00006 CF 00 CALLS Swi TCH_VOLUME 
04 00 PUSHAB B) 
00996 CF 06 CALLS i. ERIAL FILE 
AA 06 MOVL 
04 0 PUSHAB eee IB) 
00006 cf CALLS #1, SEARCH. FCB 
2 MOVL RO, FCB 
4 CLRL REALBASIS 
4 PUS REALBASIS 
t! PUSHL FCB 
04 0 PUSHAB 4(FIB) 
00006 cf OC CALLS #3, READ_HEADER 
5 000 ROVL RO, HEADER 
04 05 TSTL ALBASIS 
0005 BEQL 
08 AE 04 MOVW ALBASIS, FID 
OD AE 6 MOVB REALBASIS#2. FID+5 
OC AE 000 VB  REALBASIS+3, FID+4 
7E C 0 MOVZBL F IDs 4, =(SP5 
00006 CF 1 CALLS At SWITCH. VOLUME 
00006 CF CALLS RELEASE _SERIAL_LOCK 
08 PUSHAB +4 
00096 CF CALLS #1, SERIAL FILE 
1 AA 08 pov. RO, 24(BASE) 
00006 CF CALLS #1, SEARCH_FCB 
tf 
PUSHL 
04 PUSHAB 4(F 1B) 
00006 cf CALLS a READ_HEADER 
5 MOVL RO, HEADER 
7$: STL (Rd) 
35 iste (HEADER) 
05 58 B86 BBS #29, @BB(PACKET), 98 
0910 8s: CHAU 9 350 
9%: CLRL FCB_CREATED 
TSTL =F 
BNEO =-:'10 
58 MOVL #1, FCB_CREATED 
PUSHL wt, 
00006 gf CALLS : CREATE FCB 
2 MOVL Fc 
08 A 108 MOVL es. (BASE) 
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. =32_ V4.0-742 2 

-Jan-1985 ii Me atthe te tar icece toe 
SE BB Ge cds? 
ACCE , MOVL (R1), U 1638 ; 
voeo62 50 or) 5 9 ae} he Cup, PRIMARY_VCB ; 144 
54 4 OA E tte 198: BS af yee) 2688 : 1403 : 
A D108 ? ‘ ° : ; 
ee = ¢ jf c fay cree (PRIMARY_VCB), P.AAA+4 : 
CF 78 «AG 1 001 BLSS ; : : 
FEIC 10 19 DOE? BGTR 1G(PRIMARYVCB), P.AAA ; ; 
yomec 81 Mag Sy : ; 
+. : NCL : : 
f iS: ie fue) |i 
bd ¢ , Q 6$ : : 
ab 13 QOike MOVIL (HEADER), RO 
50 01 As aA 1FA ot L mi RO ° 3 1445 : 
34 0 $1 b0200 CMPL «RO, #23 : 1448 ; 
0 D U § : ° 
‘ i oh Rov ZBL (HEADERS EROS, IDENT_AREA : 1449 
° 8 OF CALL (PRIMARY_VCB), DAY_ : ; 
000000006 00 4 3 16 SBut. 1 }2tPRIMARY-VEBD. DAYTTEME 1451 ; 
1 Ac 1 “i, R ; : 
6 8 7 of f cn 42{IDENT_AREA), DAYTIME 
AE 2A BLS ; 
14 OF Ae Rosse BGrR (IDENT_AREA), DAY_TIME ; ; 
t 26 «A? D1 O022C BEQL 24S : : 
10 A 4 13 BLSSU 25$ ; : 
Vf 3$: INCL R : : 
BE ie ‘ug] [3 
"  BGEG_ «268 3 146 : 
CF i3 268: LBS Bs HELA 2 1088 
0000v EB : tae 39 (FC : i 
c = ie 4 i Pui FLA ASS a ecy : 1472 
FB 00¢4B SHL HEADER S : 1480 : 
i 8) pa ee ml | 
Spake in ae Be ag} |; 
EF 298: SHL 60CFI 1), =(SP) : ; 
7e 38S = & 2 i ExiV GetriBs, «SPD : 
7E 0B AG oe 2 i i ae A dete), (SP) : 1888 
5 : / ; : 

A 3 fe Btes CFB). 318 

10 of AS EB OOS 


79 08 


00006 


oo oS SO 
of oOo 


o 
oo 


04 


4 

¢ 
000000006 

54 


32 


AP NVM? POP OF FPOOOCOVNCONOPY— wi wn at ey pete oe yp me ye oY 
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36$: 


37$: 
38$: 


398: 


5 17:27: AX-11 Bliss-32 V4.0-742 
382 13:25:88 YET Tx BUGSREIACCESS BS3-1 

BRS ay #0 #2, TCPACKETD #2 

BGTRU § § ‘i 

PUSHL # 

BRB 32$ 

EXTZV #0, #1, 1(F1B8), RO 
xT y #16, wi, (1B); RI 

BISL2 Ri, RO 

PUSHL RO 

CALLS #6, CHECK_PROTECT 

MOVL RO, STATU 

CMPL ATUS, #1665 

BNE $ 

BICB2 #2, 56(FIB) 

MOVL (R&), RO 

BBC #i, 11(RO), 39$ 

TSTB 4=s«9 CF 18) 

BNEQ 

CMPW 30s (FIB), #2 

BLEQU 35$ 

MOVL  =104(BASE), RO 

CMPL FCB, 84(ROS 

BNEO 

CALLS #0, ALLOCATION_LOCK 

MOVL  -104(BASE), RO 

CMPL FCB, 84(ROS 

BNEQ 

CALLS #0, FLUSH_QUO_CACHE 

CMPW 0s (FIB), #1 

BNEQ 37% 

CLRL =(SP) 

CALLS #1, DELETE_FID 

BRB 38§ 

CLRQ  =(SP) 

CALLS #2, PURGE_EXTENT 
EGL ae (SP) 

CALLS #1, RELEASE_LOCKBASIS 

CALLS #0, ALLOCATION_UNLOCK 
VL cjOBCBASE? RO 

BLBC 60(RO), 39$ 

TSTL LUSGL _Ci.UB 

BEQL $ 

TSTL 4 (FCB) 

BNE 9$ 

PUSHL #2 

PUS 4 (FCB) 

PUSHL (FCB) 

CALLS #3, CACHE_LOCK 

MOVL = STATY 

BLBS STATUS, 39S 

CHAU STATUS 

CMP SQ<PACKET), as 

BLEQU 4 

TSTL (RB) 

BNEG = 41 
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ACCE =Jan-1985 17:27: AX-11 Pliss-32 V4.0-742 Pa 6 
vose082 met i 15:25:83 HPT ix .BUGSREJAC CESS Boos! = 3$ 
7E 38 AB 01 00 EF XTZV #0, #1, S6(FIB), =(SP) : 1540 
3c) = A3s*OD SHL  60¢FIB5 : 
7E 0B Ab 2 00 EF EXTZV #2, 11(PACKET), =(SP) + 1539 
E 2 AS O91 MPB 0s «46 (FBS, (SP) : 
48 BLEQU : 
6E 2 Ad 9A MOVZBL 46(FIB), (SP) : 
dD 408 PUSHL + 1538 
DD PUSHL HEADER : 
DD PUSHL ; 
00006 cf 6 F CALLS a, CHECK_PROTECT : 
7 D MOVL RO, STATUS : 
0220 8F BB 41$:  PUSHR #*M<R5_R9> + 1541 
00006 CF f CALLS #2, READ_ATTRIB F 
03 e BLBS RO, 42$ F 
8b ker 
55 04 AA 00 00 gs: MOVL  4(BASE), HEADER : 1542 
00000681 &F 57 D1 00370 438:  CMPL STATUS, #1665 ; 154 
04 12 00 BNEO 4$ : 
38 AB 2 BA 00 BICB2 #2, 56(F1B) + 1546 
1F 6E 06 E1 0038A 44$: BBC #6. FUNCTION, 46$ : 1551 
51 68 00 00 MOVL R : 1553 
17 0B OAT 06 £1 0 BBC #6, 11(R1), 46$ ; 
50 08 AA DO 00 MOVL &8(BASE), RO : 1555 
0c AO D 00 TSTL  12(RO) : 
7 13¢ BEQL 45$ ; 
00006 CF : FB 00 CALLS #0, REMAP_FILE + 1556 
11 00 BRB 46$ : 
1 DD OO3A6 45$:  — PUSHL.—s R21 : 1557 
00006 CF o1 FB 00 CALLS #1, MARK_COMPLETE : 
50 1 00 OO3AD 46$: MOVL #1. RO : 1559 
04 00 RET : 1561 


3; Routine Size: 945 bytes, Routine Base: S$CODE$ + 0008 


13 
access Prdonct9s 12:27:29 YaNet1 BL isess2.v4.0-742. rae 


3 38 } $¢ } GLOBAL ROUTINE SET_EXPIRE : L_NORM = : 
; 560 1 rf: 1 tee $ 
; 561 1565 1! 3 
: ° : of : FUNCTIONAL DESCRIPTION: : 
; 564 1 o8 1! This Foyt ine sets the bit in a window marking the file for $ 
; 565 : $ : H expiration date recording when it is closed. : 
3 rs 1571 1 ! CALLING SEQUENCE: 3 
; o8 : Lf : ; SET_EXPIRE () : 
3 ; 0 1574 1 ! INPUT PARAMETERS: F 
: 571 1575 1! NONE 3 
3 Le; 1 6 | 3 
s of 1577 1°! IMPLICIT INPUTS: 3 
; 1378 : } CURRENT WINDOW: address of file window : 
3 srg 1380 1 ! OUTPUT PARAMETERS: 3 
s SY 1581 1! NONE 3 
; 578 15 ; 1! 3 
; 579 12 1 ! IMPLICIT OUTPUTS: 3 
; 580 1 1! NONE 

3 28! 1585 1! 

$ o¢ 1586 1 ! ROUTINE VALUE: 

: 58 1587 1! 1 

: 584 1388 1! 

: 585 15 1 ! SIDE EFFECTS: 

: 586 1590 1! expire bit set 

s 387 1591 1! 

; 588 1236 1 !-- 

; 589 1593 1 

; 590 1594 BEGIN 

3; 591 1595 

3 296 1396 BIND_ COMMON; 

; 59 159 

3; 594 1598 CURRENT _WINDOWCWCBSV_EXPIRE] = 1; 

; 595 1599 

: 596 1600 1 

; 597 1601 1 END; ! End of routine SET_EXPIRE 


0000 00 -ENTRY SET EXPIRE, Save nothin ; 156 
of S PRB oy Feige ss 
50 or 0006 MOVL = #1, RO ; 1601 

4 QO00E RET : 


; Routine Size: 15 bytes, Routine Base: S$CODE$S + 0389 


598 1606 1 
599 168 y 


13 
ACCESS =Jan-1985 17:27:29  VAK©11 Bliss-32 v4.0-742 Page 18 
v04=002 B-Jan-1985 ae a oan tanta eet 29° 13) 


$ PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 968 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


3 coccsces Symbols enoceece Pages Processing 
3 File Total Loaded Percent Mapped Time 
: ~$255$DUA18: CSYSLIBILIB.L32;1 18619 89 0 1000 00:02.0 
$ COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ACCESS/OBJ=OBJ$:ACCESS MSRC$:ACCESS/UPDATE=(BUG$:ACCESS) 
Size: 960 code + 8 data bytes 
un T 42.4 


ime 0:42. 
eecan Time: 0130 -6 
Lines/CPU Min: $e 1 
Seema Ao ae X 40570 
ry Us sed: 434 pages 
Compilation Complete 
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